Private Obsession 3: Sophia/Private Obsession 3: Sophia.iso/files/one.dxr/00022.ls

Text File | 1995-04-08 | 550 b | 24 lines

on startMovie
  set the soundLevel to 7
  updateStage()
end

on setvolume
  global where, currentvol
  set where to (the mouseH - the left of sprite 6) * 1.0
  set currentvol to where / the width of sprite 6 * 1.0 * 255
  set the volume of sound 1 to integer(currentvol)
  set the volume of sound 2 to integer(currentvol)
  put the mouseH
  set the locH of sprite 17 to the mouseH + the width of cast 15
  updateStage()
  put the locH of sprite 17
end

on wait howlong
  startTimer()
  repeat while the timer < howlong
    nothing()
  end repeat
end